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Section 1 


GENERAL INFORMATION 


With the purchase of your Commodore 2040 Dual Drive Floppy Disk you have greatly 
enhanced the computing power of your Commodore CBM 2001 Series computer. This User 
Manual contains the information you need to connect, check out, and operate your Dual Drive 
Floppy Disk. To get the most out of your system, you should also consult your computer's User 
Manual, and if necessary, one of the BASIC manuals listed in Appendix A. 


For ease of reference, the Commodore 2040 Dual Drive Floppy Disk will be 


referred to in this manual as “the 2040.” 





DESCRIPTION 


The 2040, shown in Figure 1, is a dual-drive diskette storage device. It consists of read/write 
control, drive motor electronics, two drive mechanisms, two read/write heads, track 
positioning mechanisms, and removable diskettes. The 2040 conforms to IEEE-488 interface 
requirements. Because your 2040 is an “intelligent” peripheral, it requires no space in your 
computer's memory. This means you have just as much computer memory available to you as 
when you do not have the 2040 attached. 


Front Panel 


The 2040's front panel (Figure 2) consists of an identification panel across the top; slots in 
which to insert two diskettes; and doors to close after inserting the diskettes. When you close 
the door, the diskette is clamped onto the diskette spindle hub. Also on the front panels are 
three LED indicator lights. The one on the right is called the Drive 8 Active Indicator, and it 
lights when Drive @ is active. The LED on the left does the same for Drive 1. Theindicator inthe 
middle lights whenever a disk error occurs. 





Figure 1. Model 2040 Dual Drive Floppy Disk 








Figure 2. Model 2040: Front Panel 


Back Panel 


The back of the 2040 as shown in Figure 3 contains an IEEE-488 interface connector. Near the 
panel's lower edge is the rocker switch for turning power on and off to the 2040. Thereis alsoa 
“slow blow’ fuse. and the cord to the AC power outlet. 


Interior Configuration 


The inside of your 2040 contains two Shugart 390 disk drives. All the logic for your 2040 is 
housed on the underside of the lid. The mechanical devices are, for the most part, located 
beneath the diskettes. See Figure 4 for asimplified schematic of the interior of your 2040. (Only 
one disk drive is shown.) 


The Diskette 


The diskette (also known as a minifloppy. floppy diskette, minidiskette, etc.) is similar to the 
standard flexible disk. There are several reputable manufacturers of the 5':-inch diskettes. You 
should make Sure that you buy diskettes for soft sectored format. Your authorized Commodore 
dealer can supply your needs. Figure 5 shows a diskette in its jacket. 


Specifications 


Table 1 contains the specifications for the Commodore 2040 Dual Drive Floppy Disk. 





Jo AC POWER 
16°10A 





Figure 3. Model 2040: Rear View 


Table 1 


Specifications: Model 2040 Dual Drive Floppy Disk 


Physical: 
Matcrial: 18 ga. steel 


Dimensions: 
Height 6.5" 
Width 15" 
Depth 14.35" 


Electrical: 


Power requirements: 
Voltage 120 VAC 
Frequency 60 Hertz 
Power 50 watts 


IC's: 
Controller: 
6504 microprocessor 


6530 1{0, RAM, ROM 
6522 1/O, interval timers 


Interface: 
6502 microprocessor 
6532 (2) 1/O. RAN, interval timers 
6332 (2) ROM 


Shared: 
6114 (8) 4x1K RAM 


Drives: 


Shugart SA390 (2) 
Diskettes Standard mini. 5'3" 


Storage: 


Total capacity 176640 bytes 
Sequential 170180 bytes 
Random 170850 bytes 
Sectors per track 17 to 21 
Bytes per sector 256 

Tracks 35 

Blocks 690 
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Figure 4. Model 2040: Internal Representation 
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Figure 5. Position for Diskette Insertion 


CARE OF THE 2040 


Your 2040 should be kept on a flat surface free of vibration. It is important that dust particles be 
kept at a minimum since a buildup of these particles can interfere with optimum operation. If 
you should experience a failure of the 2040. contact your authorized Commodore dealer. An 
attempt to correct the problem yourself could result in the voiding of your warranty. 


CARE OF THE DISKETTES 


Your diskettes should be handled with care. Follow these instructions to maintain the quality of 
your diskettes and protect the integrity of your data: 


1. Return the diskette to its storage envelope whenever it is removed from the disk drive. 


2. Keep the diskettes away from magnetic fields. Exposure to a magnetic field can distort the 
data on the disk. 


3. Never remove a diskette from its plastic jacket. 

4. Do not write on the plastic jacket with a lead pencil or ball-point pen. Use a felt tip pen. 
5. Heat and contamination from a carelessly dropped tobacco ash may damage a disk. 

6. Do not expose diskettes to heat or sunlight. 


7. Do not touch or attempt to clean the diskette surface. Abrasions may cause loss of stored 
data. 


UNPACKING THE 2040 


Before you unpack your 2040, inspect the shipping carton for signs of external damage. If the 
carton is damaged, be especially careful when inspecting its contents. Carefully remove all 
packing material and the contents of the carton. DO NOT discard any packing material until 
you have made sure you have located all the contents of the carton! The package should 
contain: 


. Commodore Model 2040 Dual Floppy Disk Drive 


. Model 2040 User Manual, Number 320830 
. TEST/DEMO Diskette, P/N 321500 
. Warranty card 


. Miscellaneous informational literature 





If any of these items are missing, notify your Commodore dealer immediately. 


Additionally, you must obtain the appropriate cable from your Commodore dealer to connect 
your 2040 to your computer. See Section Il, Page 9 forinformation about which IEEE cableto 


buy. 


Section 2 


PREPARING TO USE YOUR 2040 


Before starting to use your 2040, you should make sure it is in good working condition. This 
includes properly connecting it directly to your computer or to another IEEE-488 peripheral 
device, giving it a power-on and initial checkout, and finally giving it a performance test using 
the TEST/DEMO diskette. 


CONNECTING THE 2040 TO THE COMPUTER 


One of two connector cables is required to connect the 2040 to your computer. 


1. 


PET-to-IEEE cable P/N 320202 
Use this cable, if the 2040 is to be the only (or first) IEEE device connected to your computer. 


IEEE-to-IEEE cable, P/N 905080 
Use this cable if the 2040 is to be connected (“daisy-chained”) to another peripheral device 
such as the Commodore Model 2022 or 2023 Printer. 


Follow these steps to connect the 2040 to your computer: 


1. 


2. 


Turn off the AC power to your computer. 


Place the 2040 in a convenient location as close as possible to the computer. DO NOT 
connect the 2040 to an AC outlet at this time. 


. Connect the PET-to-IEEE cable between the IEEE-488 interface connector on the computer 


and the connector on the 2040. If additional IEEE devices are to be connected, the lIEEE-to- 
IEEE cable(s) must be used. See Figure 6. 


. Connect the 2040 power cord to an AC outlet. DO NOT turn on power att us time. 


Floppy Disk Model 2040 


CBM 2001 Series Computer 


—_ 


IEEE-to-IEEE Cable 
(P/N 905080) 


PET-to-IEEE Cable 
(P/N 320101) 


Printer Model 2022 or 2023 





Figure 6. Floppy Disk Hookup 


PERFORMING THE POWER-ON TEST 


You are now ready to proceed with the power-on part of the checkout: 
1. Turn on AC power to the computer and verify that it is working correctly. 


2. Open both drive doors on the 2040. Make sure that there are no diskettes in either drive. If 
you find a diskette, take it out. 


3. Turn on AC power to the 2040. All three indicator lights (LEDs) on the front panel light 
briefly then go out. If any indicator light remains lit for more than about three seconds, turn 
off the power to the 2040. Wait five minutes andtry again. If any light still remains lit, contact 
your Commodore dealer immediately. 
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THE PERFORMANCE TEST 


When the previous steps have been completed successfully, you may proceed with the 
performance test. Don't worry if you don't fully understand exactly what is happening in this 
test. All commands and results are explained in Section 3. At this point, just enter the 
commands by rote to get a feel for what you can do with your 2040. If unexpected results are 
obtained during any step of the test, stop and start over again. The most likely cause of a 
problem is an improperly entered command. This is to be expected until you become familiar 


with your 2040. 


All commands that you type at the keyboard should be followed by a carriage return: the 


[RETURN] key on your keyboard. 


ls 


NOTE: You must enter the commands exactly as shown on the instructions 
below. Do not insert any spaces in the commands unless shown in the 


instructions. If the error indicator lights up, you may be able to continue the 
example anyway. Re-enter your last command. If the light goes out, your 
correction was successful and you may continue. 





Insert the TEST/DEMO diskette into Drive 8 as shown in Figure 7. Insert a blank diskette 
in Drive 1. Remember to close both drive doors. 


2. On the keyboard, type: 


OPEN 1,8,15 


This command opens logical file 1 on device 8 (your 2040). The secondary address of 
15 opens the command channel to the 2040. The screen displays your entry followed 
by READY. 


NOTE FOR BUSINESS KEYBOARD USERS ONLY: If you have a business 
keyboard, you may wish to set your computer for upper case character entry. 
You do this by typing: 


POKE 59468, 12 


and pressing the[ RETURN] key. Although it is not absolutely necessary to give 
this command prior to communicating with your 2040, it does permit easy 
entry. In addition, the examples in this manual can be duplicated exactly when 
you use only upper case. 





Be bs 





Figure 7. Inserting the Diskettes 


3. On the keyboard, type: 


PRINT #1,"NEW1:TEST, 99" 


PRINT#1 sends the command string to the 2040. It formats (soft-sectors) the diskette 
in Drive 1, gives the diskette the name TEST, and an ID of 99. The computer displays your 
entry and then READY. The Drive 1 Active indicator LED lights and the drive motor runs 
for about one minute. Then the motor stops and the light goes out. 


4. On the keyboard, type: 
PRINT#1,"10" 
This command initializes Drive 8. (Drive 1 was initialized as part of the formatting pro- 
cedure in number 3). The initialization procedure places the magnetic head of the drive in 
the proper position above the diskette. The computer displays your entry, then the word 


READY. The Drive @ Active indicator lights up and the Drive 8 motor runs briefly. Then 
the motor stops and the light goes out. 


oe ae 


5. On the keyboard, type: 
LOAD “50".8 


This command loads the file directory from the TEST/DEMO diskette into the computer's 
internal memory. 


The computer display now shows: 


LOAD "“$0".8 
SEARCHING FOR S@ 
LOADING 

READY. 


At the same time, the Drive 0 indicator lights and the Drive motor runs briefly. 


6. On the keyboard, type: 
LIST 


This command requests the display of the TEST/DEMO diskette file directory which 
was placed in the computer's memory during step 5. The screen now displays your entry 
and the entire file directory for TEST/DEMO. 


Notice that the BASIC command LIST involves no interaction with the 2040 since 
the directory is retrieved from your computer's memory. 


7. On the keyboard, type: 
LOAD"@:DIAGNOSTIC BOOT".8 


This command loads the Diagnostic Boot program from the diskette in Drive ® with the 
computer's memory. 


The computer displays your entry and: 


SEARCHING FOR @:DIAGNOSTIC BOOT 
LOADING 
READY. 


Simultaneous with the screen display, the Drive 9 indicator lights and the Drive 6 motor 
runs. Before going on to step 8, make sure you remove the diskettes when directed to by 
the screen display. 


8. On the keyboard, type: 
RUN 


The program is executed. It checks for malfunctions in 1/O ICs, RAMs, and ROMS. Follow 
the directions on thescreen. If all three indicators flicker continuously, the test is passed. If 
all indicators remain lit in a steady pattern, the directions on the screen can be used to find 
the problem area. Contact your Commodore dealer for help. After 30 seconds of operation, 
reset the 2040 by turning the rocker switch on the 2049 off, then back on. 


2% 


9. 


10. 


11. 


12. 


On your keyboard, press: 


RUN 
STOP 


Then press the key simultaneously with tne| on key. Now return the diskettes 
to their respective drives. 





On the keyboard, type: 


PRINT#15,"10" 
LOAD "“@:PET DISK",.8 


This program loads the file containing the PET DISK program from the diskette in Drive 6 
to the computer's memory. 


The computer displays your entry and: 
SEARCHING FOR @:PET DISK 


LOADING 
READY. 


The Drive 8 motor runs simultaneously with the display shown above. 
On the keyboard, type: 
RUN 


The PET DISK demonstration program is displayed continuously until you terminate it. 
Notice that you can hear the Drive 8 motor runintermittantly as one program calls the next. 


On the keyboard, press: 


RUN 
| STOP 


Then press the| SHIFT key simultaneously with the | NOME key. This completes the Model 
| : 
2040 Dual Drive Disk performance test. 


You now know that your 2040 works. You have had a taste of operating it. Now you are 
ready to really make it perform. 


fA 


Section 3 


USING YOUR 2040 


Your 2040 adds to your computing power with added storage and file handling capability. You 
control it directly with BASIC commands given from the keyboard, from BASIC statements 
within programs, and with special disk commands. In this section you will learn how to apply 
these commands and statements to the 2040. The section is organized in such a way that the 
functions and syntaxes of the BASIC commands and the special disk commands are described 
first. Then instructions on how to use these commands to perform 2040-related tasks are given. 
For the most part, the instructions in this section apply to program (PRG) files that contain 
BASIC programs. 


Before you attempt to use your 2040, make sure you know how to do the following: 


1. Operate your Commodore computer 


2. Do elementary programming in BASIC 


3. Open and close files 





You should refer to your computer's User Manual for this information. 


This section uses certain conventions to indicate specific actions or requirements: 


Example Description 


dn Italicized lowercase letters in a syntax indicate 
that you should enter something (a variable 
name) in place of the letters. 


A Brackets indicate optional usage. 


= 46 = 


NOTE: The BASIC statements described in this manual apply specifically to 
use with the 2040. Certain of the commands and statements may follow a 
slightly different syntax or produce different results from those described here 


when they are used for the computer or for other peripheral devices. Consult 
the appropriate manual for the exact usage of these commands and statements 
in other contexts. 





2040-ASSOCIATED BASIC COMMANDS 


Several BASIC commands that allow you to communicate with and transfer data to and from 
your 2040 are described in this section. These commands are: 


OPEN VERIFY 
CLOSE LOAD 
SAVE PRINT# 


Let's take a quick look at the syntax of each of these commands and find out what each one 
does. Then, in subsequent sections, you will see how to use these commands to perform 
certain 2040-related tasks. For more about these commands, and peripheral devices in 
general, read Chapter 7 of your computer's User Manual. 


The OPEN Command 


This command sets up a correspondence between a file number and the 2040. It also opens a 
specified channel between the computer and the 2040. The syntax of OPEN is: 


OPEN /fn,dn,sa 


Where: lfn is a logical file number. You assign this number 
arbitrarily and it may be any number between 1 
and 255. 


dn is the device number. This number must be 8 
since that is the number assigned to it at the 
factory. 


sa is the secondary address. The secondary 
address is used to open channels between the 
2040 and the computer. At this point, we will 
deal with Channel 15 exclusively. Channel 15is 
the command and error message channel. 
Later, we will explore the use of other second- 
ary addresses. 


- 16 - 


The CLOSE Command 


The CLOSE command closes a file opened by the OPEN command. Its syntax is: 


CLOSE Ifn 


Where: lfn is the logical file number of a file opened by the 
OPEN command. 


You should always close a file after working with it. You are not allowed to have more thanten 
open files in the computer and five in the 2040, so it is well to make a habit of closing files as 
soon as possible. This way you will always have the maximum number of files available for use. 


The SAVE Command 


The SAVE command transfers programs from the computer's memory to the specified diskette. 
SAVE always assigns a file type of PRG (for program) to files that are written to the diskette 
with it. The syntax of SAVE is: 


SAVE “dr:tn”,dn 


Where: dr is the disk drive number. It must be @ or 1. 
fn is any file name of 16 characters or less you 
wish to assign to the file to be transferred to the 

diskette. Blanks are counted as characters. 


dn is the device number and it must be 8. 


Another syntax of SAVE is: 
SAVE “@ar:fn”,dn 


Where: @ means to replace the contents of an existing 
diskette file. 
fn is the name of the diskette file whose contents 


is to be replaced. 


The VERIFY Command 


The VERIFY command performs a byte-by-byte comparison of the file just written to the 
diskette against the file in the computer's memory. The syntax of the VERIFY command is: 


VERIFY “dr:fn’.dn 


Where: dr is the same drive number as used in the imme- 
diately preceding SAVE command. 


fn is the same file name as used in the immediate- 
ly preceding SAVE command. 


dn is the device number, in this case 8. 


= 417 


Another syntax of VERIFY is: 
VERIFY “*”,dn 


Where: * causes the program just saved to be verified. 


You should give the VERIFY command every time you use the SAVE command to place afileon 
a diskette. If you do this, you will always know whether or not the file was copied correctly. 


The LOAD Command 


The LOAD command transfers program (PRG) files from the specified diskette to the 
computer’s memory. The syntax of LOAD is: 


LOAD “dr: fn”,dn 


Where: dr is the drive number from which you are loading 
data. It must be @ or 1. 


fn is the file name previously specified in the 
SAVE command and/or stored in the disk 
directory. 

dn is the device number and it must be 8. 


After a successful LOAD, you must give a new OPEN command in order to continue 
communicating with the 2040. 


The PRINT# Command 


The PRINT# command transmits a diskette command string to the 2040. The syntax of PRINT# 
is: 


PRINT#H fn, “commandstring” 


Where: commandstring contains disk handling or disk 
file handling commands. These disk com- 
mands are: 

N - (NEW). Formats (soft-sectors) the diskette and initializes it. 

| - (INITIALIZE). Aligns the drive head, reads the directory track, 

loads disk data into the Disk Operating System (DOS). 

V- (VALIDATE). Creates the Block Availability Map (BAM) 

according to valid disk data and initializes the diskette. 

D- (DUPLICATE). Duplicates an existing disk. 

C- (COPY). Copies and/or merges files from one disk to another 


or on the same disk. 


R - (RENAME). Changes the name of an existing valid file. 
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S - (SCRATCH). Deletes a file. 


You have a general idea of what each of six BASIC commands and seven diskette handling 
commands do. Now you will see how to use these commands to perform various tasks. 


PREPARING TO USE A DISKETTE 


Every time you place a diskette in one of your disk drives you must follow a certain procedure 
to prepare it and the disk drive for use. Some form of this initialization must occur every time 
you insert a diskette. Initialization or reinitialization occurs when you give the INITIALIZE, 
VALIDATE, DUPLICATE, or NEW diskette commands. 


REMEMBER: Diskette commands must be transmitted in PRINT# commands. 


All PRINT# commands require that an OPEN command be in effect. 





Preparing a Blank Diskette 


A blank diskette has no sector formatting on it. Before it can be used it must be formatted. 
Follow this procedure: 


1. Turn onthe computer and the 2040. Insert the diskette in either disk drive after the power is 
turned on. Never turn the power on to the 2040 with a diskette in place. 


2. Type: 
OPEN 1,8,15 


The 1 is a logical file number; the 8 is the 2040's device number; the 15 is the secondary 
address that opens the command and error channel to the 2040. 


3. Next, use the disk command NEW to format (soft-sector) the diskette and to initialize the 
disk drive. The syntax of the NEW command string is: 


“N[EW]dr:dskname,id” 


Where: dr is the drive number, @ or 1 


dskname is the name you wish to assign to the disk. It 
may be up to 16 characters long. 


Id is a unique two-character identifier. 


The NEW disk command writes headers for each data block on all 35 tracks. It clears the disk 
directory and reinitializes the Block Availability Map (BAM). 
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Example: 


OPEN 1.8.15 
PRINT#1,°N@:TESTDISK, XX" 


Preparing To Reuse An Old Diskette 
You can reuse an old diskette just as if it were a blank diskette. Simply follow the same 


procedure as you would if it were a blank diskette. 


Example: 


OPEN 1,8,15 
PRINT#1,°N1:JONES,99" 


All of the old data, the disk name, and ID are removed. The new disk name and ID replace the 
old ones. 


WARNING: There is no way to recover directly old data from a diskette once 


the NEW disk command has been executed. 





If you wish, you can remove all of the old data from an old diskette, but retain or change the 
diskette name as desired. The two-character ID remains the same. There are two reasons for 
“reNEWing’ a diskette this way: it takes less time—20 seconds against 80 seconds; you can 
keep track of individual diskettes by assigning unique IDs and then never changing those IDs. 
If you prefer to do this rather than treating the diskette as a blank diskette, use the following 
non-formatting NEW command: 


“N[EW]dr:dskname” 
Where: dr is the drive number, 6 or 1. 
dskname is either the existing diskette name or a new 
one. 


Notice that ID is not included in this disk command. 


Example: 


OPEN 1,8,15 
PRINT#1.“NEW 1:NEW DATA" 
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However you choose to reformat an old diskette, the disk command clears the disk directory 
and all disk files. 


Preparing a “Currently-in-Use” Diskette 

A “currently-in-use” diskette may be pre-formatted but contain no files yet, or it may already 
contain files. It is not necessary to go through the formatting procedure for this kind of 
diskette. In the previous sub-sections, the initialization procedure was included in the NEW 
command. In this case, however, you have to use the INITIALIZE command. 

The INITIALIZE command aligns the read/write head with track 1 on the specified diskette. It 


then moves to track 18, reads the disk name and ID, and loads the information into the Disk 
Operating System (DOS) memory. The syntax of the INITIALIZE disk command string is: 


“I[NITIALIZE J[dr]” 


Where: dr is the drive number, @ or 1. If no drive number is 
specified, both drives are initialized. 


Example 1: 


OPEN 1,8.15 
PRINT#1,"I0" 


This command initialized drive @. 


Example 2: 


OPEN 1,8,15 
PRINT#1,"INITIALIZE" 


This command initializes both drives. 


Example 3: 
OPEN 1,8,15 


PRINT#1,"NEW 1:ACCTS,CC" 
PRINT#1,"10” 


In this example, both drives are initialized. Notice that there is no need to give the INITIALIZE 
command for Drive 1, since initialization is included in the NEW command. 
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WRITING A PROGRAM TO A DISKETTE 


Once you have placed a program in the computer's memory, you can move it onto a diskette for 
storage. This is accomplished with the SAVE command as described on page 17. Any data 
transferred with a SAVE command is automatically designated by the system as a program 
(PRG) file. 


The following example shows how a program is typed into the computer's memory, then 
moved from the computer's memory to the specified diskette. 


Example: 


10? “THIS IS A TEST" 
SAVE "@:TESTPROG", 8 
VERIFY "@:TESTPROG”, 8 


READING A PROGRAM FROM A DISKETTE 


Reading a program from a diskette into your computer's memory is as easy as putting it onthe 
diskette in the first place. This task is accomplished with the LOAD command. You must 
specify the drive number, the program name, and the device number. 


This example shows how the program in the previous example is loaded from the diskette to 
the computer's memory, then executed. (If you wish to do this example, first type NEW and 
depress |RETURN| to clear your computer’s memory so that you can see that it really works.) 


Example I: 


LOAD “@:TESTPROG", 8 
READY. 

RUN 

THIS IS A TEST 


Example 2 shows a session with the computer, a tape cassette, the 2040, and a printer. The 
purpose of the session is to copy a program on the cassette tape to a diskette. The program is 
then read from the diskette to the computer's memory and finally printed on the printer, It is 
assumed that the BASIC program was previously stored on the cassette. 
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Example 2: 


LOAD"DEMO” 


PRESS PLAY ON TAPE #1 
OK 


SEARCHING FOR DEMO 
FOUND DEMO 
LOADING 

READY. 


SAVE‘1:DEMO”,8 
VERIFY“1:DEMO”,8 

READY. 

NEW 

LOAD “1:0EMO”",8 

SEARCHING FOR 1:DEMO 
LOADING 

READY. 

RUN 

THIS IS A DEMONSTRATION TO 
SHOW HOW WE MOVE A PROGRAM 
FROM ONE MEDIUM TO ANOTHER. 


READY. 
OPEN1,4 


READY. 


You load the file from the cassette tape 
to the computer's memory. 


You move a copy of the file from the 
computer’s memory to a diskette. 


You erase everything from the memory. 


You load the program back into the 
computer’s memory. 


You run the program just to prove to 
yourself that it’s really there! 


You open the file to the printer and list 
the program on the printer. 


The printer prints: 


cmD1 A PRIWT"THIS IS A DEMOWSTRATION To" 
LIST SA PRIHT SHOW HOW WE MOVE A PROGRAM" 


PRINT#1 


PRIWT "FROM OWE MEDTUM To AWCTHER" 





DISPLAYING THE DISKETTE DIRECTORY 


You can display the directory for the diskette in the specified diskette drive with: 


LOAD “$dr’,dn 


Where: dr 


is the drive number 


dn is the device number (in this case, 8, for the 2040). 


The disk directory includes a header that tells the name of the disk and its ID. The data shows 
the name, the number of blocks used, and the file type of each file. The numbers of unused 
blocks is also displayed. (A block contains 256 bytes.) 


The following example shows a request to load the TEST/DEMO diskette’s directory. You have 
already inserted the diskette and initialized the drive. 


Example: 
LOAD "$2", 8 
SEARCHING FOR S@ 
LOADING 
READY. 


The TEST/DEMO’s directory is moved into your computer’s memory. Display it by typing: 


LIST 


WORKING WITH YOUR DISKETTE FILES 


You need to do more than just move your files from your computer to a diskette and back, and 
list them. This subsection describes the 2040 file handling disk commands. These are: 


Command Function 


Diskette VALIDATE Creates a Block Availability Map (BAM) 


Bevel DUPLICATE Duplicates a diskette 


COPY Copies files 
RENAME Renames a file 


SCRATCH Erases a file 
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The VALIDATE Disk Command 


The VALIDATE disk command creates a Block Availability Map (BAM) according to the valid 
data on the diskette. The syntax of VALIDATE is: 


PRINT#/Ifn, “V[ALIDATE] dr” 


You may abbreviate VALIDATE to V if you prefer. If you do not specify a drive number, the 
diskette in the last drive used during the current session is verified. 


In addition to creating the BAM, VALIDATE deletes from the directory files that were never 
properly closed. If a READ error is encountered during a VALIDATE, the operation aborts and 
leaves the diskette in its previous state. If a VALIDATE error does occur, you must re-initialize 
before proceeding. 


Example: 
OPEN 1, 8, 15 
PRINT#1,"VQ" 
or 


PRINT#1,"VALIDATE @” 


The DUPLICATE Disk Command 


The DUPLICATE disk command creates an identical diskette that includes the diskette name, 
ID, and all files. It is important that both disks be in good condition since any read or write 
errors will cause the operation to abort. 


The syntax of DUPLICATE is: 
PRINT#Ifn, “D[UPLICATE ]ddr=sadr” 


Where: ddr is the destination diskette 


sdr is the source diskette 


WARNING: Make sure that you do not reverse the order of the drive numbers. If 


you do you will lose all your data and there is no way to recover it. 





Example: 


OPEN 1,8,15 
PRINT#1,“DUPLICATE 0=1” 


or 


PRINT#1,"DQ=1" 
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The COPY Disk Command 


The COPY disk command allows you to copy files from one diskette to another, or to duplicate 
files on the same diskette. You can also use this command to concatenate data files. 


The syntax of COPY is: 
PRINT#!Iin, “CLOPY] ddr:dfn=sdr:sfn,sdr:sfn... 


Where: ddr is the destination drive. The file is to be copied 
onto the diskette in this drive. 


din is the destination file name. This name may be 
either a new name or the same as the old file 
name. 

sdr is the source drive the original file is on the 


diskette in this drive. 
stn is the source file name. 
You may include up to four source files to be concatenated into your destination file. 


In Example | below, a file is copied from the diskette in Drive 1 to the diskette in Drive @. In 
Example 2, files from both drives are concatenated into a file on Drive 1. 


Example |: 
PRINT#1,"C1:ACCT1 =@:ACCT" 
Example 2: 


PRINT#1,"C1:JDATA=1:ACCT1,@:ADATA,@:BDATA" 


The RENAME Disk Command 


The RENAME disk command renames an existing diskette file. No file must already exist with 
the file name specified in the command or an error will occur. 


The syntax of RENAME is: 


PRINT#Ifn, “R[ENAME ]Jdr:nfn=ofn” 


Where: dr is the disk drive on which the diskette is located. 
nin is the new name of the file. 
ofn is the old name of the file. 
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The SCRATCH Disk Command 


The SCRATCH disk command erases unwanted files from the specified diskette and its 
directory. Files may be erased individually or several may be erased at one time. 


The syntax of SCRATCH is: 
PRINT#HIfn, “S{dr]{:]in, [[dr][:Jtn. . .{dr]{:Jin]” 


Where: dr is the disk drive to be searched. 
J alone means “last drive accessed,” with dr refers tothe 
. specified drive, where not used means “both drives.” 
fn is the name of the file to be erased. 


You can erase one file, several files, or all the files on a diskette. To erase one file, enter the 
entire name of the file: 


PRINT#1,°S@:ACCT" 
To erase several files with unrelated names, enter the entire name of each file to be deleted: 
PRINT#1, “S@:ACCT, @:CUSTOMER,QINV” 
To erase several files at one time where names begin the same way, use an asterisk (7¢ ) after the 
last common character. If you have files named BASICS, BASE DATA, and BASKET, place 
the asterisk after the S to delete all files beginning with BAS: 


PRINT#1,"S1:BAS3¢" 


Or, if the files named above have totally unique names, you can use just the first letters of the 
files as shown below: 


PRINT#1,"SQ@:A%¢,:C 76,146" 
To erase several files with certain common characters or strings of characters, replace the 
unique characters with question marks (?). To erase the files MONITR.SRC and EDITOR.SCR 
on Drive @, replace the first through sixth characters with questions marks as shown below: 


PRINT#1,"S@:2?222? SRC" 


The examples below show how you can use the asterisk and question marks together: 


Examples: 
Designation May refer to 
FILE? 3¢ FILE 1 FILE2 FILE %¢ 
P???FILI PET FILE PRG FILE-32 POKEFILES$$ %@ 
222% TEXTILE OBJ AB 


297 2 


You can erase all the files on a diskette. Only the diskette name and ID remain. Simply specify 
the disk drive and include an asterisk in the SCRATCH disk command. 


Example: 


PRINT#1,"S@:45" 


DETERMINING THE FILE TYPE 


if you want to store BASIC programs on diskette, the best way to doit is in PRG files. These are 
the files that we have dealt with up to this point in this manual. PRG (or program) files can be 
loaded with the LOAD command, and saved and assigned a file type of PRG with the SAVE 
command. 


The rest of this section contains reference to two more kinds of files: Sequential (SEQ) and 
User (USR). LOAD and SAVE are not available for these file types. 


USING THE DATA CHANNELS 


So far you have learned how to use the SAVE and LOAD commands to write and read program 
(PRG) files that contain BASIC programs. You used a secondary address of 15 to open the 
command channel and receive error messages. You also learned that you can have several 
logical files open at onetime. But your CBM 2001 series computer and 2040 team has alot more 
capability than just described. Data of many types can be stored and accessed. Data as well as 
command strings can be transmitted to the 2040 via the PRINT # command: and data from the 
diskette file can be transmitted to the computer with the INPUT# or GET# command. Read 
Chapter 7 of your User Manual for a complete discussion of these commands. 


The OPEN Command (Complete Version) 


As before, you need to open the file and channel(s) to the file. 


The syntax of the complete OPEN commanzd is: 


OPEN /fn, dn, sa, “dr:fn, ft, mode” 


Where: lfn is the logical file number 
dn is the device number; in this case 8 
sa is the secondary address. It may be any number 


from 2 to 14 and may be used either for input or 
Output as specified in mode. 


dr is the driver number: @ or 1 
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fn is the name of the file. 


ft is the file type. It may be SEQ (for sequential), 
USR (for user), or PRG (for program). 


mode describes how the channel is to be used. It may 
be either READ or WRITE. 


Examples: 
OPEN 2, 8, 2, “2: FILE 1,.SEQ,WRITE" 
OPEN 3,8,9, "1:TEST DATA,PRG,WRITE” 


OPEN 8, 8, 8, “@:NUM,USR,READ"” 


You can replace the contents of an existing file by preceding the drive number with an at sign 
(@) as shown here: 


OPEN 3,8,.5,"@@:JDATA,USR,WRITE" 
if the specified file does not exist, then normal opening procedures are executed. 


You can also assign some of the information that goes in the OPEN command to a variable 
name as shown below: 


FLS="@:FILE A,SSEQ,READ” 
OPEN 1,8,14, FLS 


Or: 


FLS="Q:FILE A” 
OPEN 1,8,14,FL$+",SEG,WRITE” 


The methods above are convenient when you need to open several channels to the same file 
name. 


Closing the Data Channel 


The CLOSE command closes a file and the data or command channel associated with it. 
Whenever you close a file opened with a write channel, the closing of that file writes the final 
block of data to the disk and updates the disk directory. When you close a file opened with a 
read channel, that channel is simply closed down. 


NOTE: When a drive is initialized with INITIALIZE, NEW, DUPLICATE, or 
VALIDATE, all channels associated with that drive are deleted in the 2040. 


These commands should not be executed when there are any files open since 
the files will be disrupted. 
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Closing the Command Channel 


The close of the command channel causes the close of all channels associated with the 2040. 
No other part of the logical file environment is affected. 


The following example illustrates a situation in which several channels are closed down by a 
single CLOSE command. 


Example: 


OPEN 1,8,15 ——_———& The command channel is opened. 


OPEN 3,8,2,@:FILE1,SEQ,WRITE" ms 
OPEN 4,8,5,"0:FILE2 SEQ.WRITE” Data channels are opened for writing. 


PRINT#3,"IMPORTANT DATA" 


PRINT#4,"MORE DATA’ A channel is opened to the printer by 
OPEN 3,4 ——————_—_  nnistake. 


?FILE OPEN ERROR? se be 
a a error message is displayed on the 


screen. 


Since there was an error, all logical files in the computer are closed, but the 
channels in the 2040 are still open. To close the 2040 channels, the operator 
types: 


OPEN 1,8,15 
CLOSE 1 


Now all data channels in the 2040 are closed properly. 
Data Transfer to the Diskette 
You can send data to a previously-opened diskette file with the PRINT # command. Unless you 
use a semicolon as a terminator for each PRINT# statement, the BASIC interpreter sends a 
carriage return and line feed to the diskette. These characters are written to the diskette as part 


of the data. It is important to be aware of this fact because when data is read from the file, these 
characters are also transferred. 


Example: 


PRINT#2,"JONESABC” ;CHRS(1 3); 


The CHR$(13) is the carriage return necessary for the proper termination of the INPUT# 
statement. 


-30- 


Data Transfer from Diskette 


After opening one or more read channels, you can transfer data from the diskette to the com- 
puter. Use the commands INPUT# or GET#. Both commands follow the rules of the computer's 
BASIC interpreter. 


The syntax of INPUT# is: 
INPUT# ifn, vname[,vname, . . .vname] 


Where: vname is the numeric or string variable to be read from 
the specified file on the diskette. 


vname may be either a simple character to 
specify a numeric input, or a single character 
followed by a dollar sign ($) to specify alpha- 
betic input. See your User Manual for variable 
names rules. 


The following example shows how INPUT# is used in a BASIC program to read in data: 
INPUT#1,EN,EM$,ET,ES 
The syntax of GET# is: 
GET# Ifn, vnamef[,vname, . . ._vname] 


GET# transfers data, one character at a time, to the computer. This command is useful when 
the data is stored in a form that is not directly acceptable to BASIC. It is also useful when a 
programmer wishes to have immediate access to a character as it is transferred to the 
computer's memory. 


See Appendix C for an example of Sequential Reading & Writing under Program Control. 


REQUESTING ERROR MESSAGES 


Whenever the LED device error indicator in the middle of the 2040's front panel is lit, an error 
has occurred. To find out what the error is, you must execute a short program. The execution of 
the program displays the error on the computer's screen and resets the device error indicator. 


The program you execute should open the error message channel (sa = 15), request one to four 


variables transferred to the computer and then display those variables. The program below 
shows one way to request error messages. 


Example: 
10 OPEN 1,8,15 


280 INPUT#1,A$,B5,C5,DS5 
3@ PRINT AS,BS,C$,0S 


a ee 


You may request only field A$, fields A$ and B$, fields A$, B$, and C$, or all fields as shown 
above. 


The error message format is: 


A, B, C, D 
Where: A is the error message number 
B is the error message 
Cc is 68 or the track number 
D is 08 or the sector number 


Table 2 shows the 2040 error messages. 


Recovering DOS Errors 


Often the errors described here represent hard errors. This type of error cannot be easily 
recovered. Other errors may simply require the retyping of a command. 


Read errors: 28, 21, 22, 23, 24, 27 


28: READ ERROR (block header not found) 
The disk controller is unable to locate the header of the requested data 
block. Caused by an illegal sector number, or the header has been 
destroyed. 


21. READ ERROR (no synch character) 
The disk controller is unable to detect a synch mark on the desired track. 
Caused by misalignment of the read/write head or no diskette is present. 
Can also indicate a hardware failure. 


22. READ ERROR (data block not present) 
The disk controller has been requested to read or verify a data block that 
was not properly written. This error message occurs in conjunction with 
the BLOCK commands and indicates an illegal track and/or sector request. 


23. READ ERROR (checksum error in data block) 
This error message indicates that there is an error in one or more of the 
data bytes. The data has been read into the DOS memory, but the check- 
sum over the data is in error. This message may also indicate grounding 
problems. 


24. READ ERROR (byte decoding error) 
The data or header has been read into the DOS memory, but a hardware 
error has been created due to an invalid bit pattern in the data byte. This 
message may also indicate grounding problems. 
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Error 
Number 


00 
01. 


20 
21 
22 
23 
24 
27 


25 


28 
29 


TABLE 2 
2040 Error Messages 


Error Message Track 
STATUS MESSAGES 
QIK eters tence be pr ade attectite Datars Var ip fie aed Sacha ba ate eae 60 


FILES SCRATGHED® vos -csccniee Sa Siooieneinebaewdieeen batiare Su ee Sets # FILES 


READ ERRORS 


READ ERROR (block header not found) ................... 000000. T 
READ ERROR (no synch character) ........... 0... cc cece eee ee eee T 
READ ERROR (data block not present) .......... 0... cece ee ee T 
READ ERROR (checksum error in data block) ................0005 T 
READ ERROR (byte decoding error) ......... cee cece cece eens T 
READ ERROR (checksum error in header) ...............0. cee eee T 


WRITE ERRORS 


WRITE ERROR (write-verify error) ....... 0.0... cee eee eee ee eee T 
WRITE:PROTEGCT (ON. socceed nde hatlnd ate hirelel att montana aging ews T 
WRITE ERROR (long data block) ...... 2... 0. ccc cece ce eee ee T 
DISK ID MISMATCH ....... 0... ccc ccc cece eee e eee e eens T 


SYNTAX ERRORS 


SYNTAX ERROR (general syntax) 2.0.0.0... 0... c cece ee ee eee 66 
SYNTAX ERROR (invalid command) ........... cece ee ee een ees 0g 
SYNTAX ERROR (long line) ..... 0... 0... ccc ccc cece ee eee ees i") 
SYNTAX ERROR (invalid file name) .......... 0... cc cece eee 0a 
SYNTAX ERROR (no file given) 2.0.0.0... 0c ee ees 4) 
WRITE FILE-OPEN? .. 20. 253.2)5.ce Sams autensd- etn tied d decade ane en daset 68 
FILE NOT OPEN): ¢23 24 ecsia ts cha aiehe lands taeda bows 00 
FILE-NOT POUND! scctaateinie te gd wad did Cok ble eeleacbae eae dak oes 00 
FILE: EXISWiS: cass nied otatee copees teat nS ye gece to alone Gaudin ra titted aps 4) 
FILET VRE MISMAIGH © 20 .aies eo sete Maw baht eae Souan 00 
NO VBEOGK: .o so. casicsetnate burns 04 Gib 5.8 enw aad awh wali wade wes soeeean T 
NO: GHANNEES: ~s..2s8ene beiteiates cite he atk Satta bie wine hs 00 
DIR ERROR? ctusauc taciiieh dt dinideine saat nase Sate Shota eAwaaat ey eel acters 08 
DIS FOE enc te oce ee taneten teed scans nih ane Ge Sia ad a dsl kee cant pacten yao at beh ae 68 


Sector 


0a 
06 


ANnNNNNN 


NnNnNnNM 


68 
60 
i) 
1) 
66 
06 
00 
06 
80 
60 


08 
00 
08 
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27. 


READ ERROR (checksum error in header) 

The controller has detected an error in the header of the requested data 
block. The block has not been read into the DOS memory. This message 
may also indicate grounding problems. 


Write errors: 25, 26, 28, 29 


25: 


26. 


28. 


29. 


WRITE ERROR (write-verify error) 
This message is generated if the controller detects a mismatch between 
the written data and the data in the DOS memory. 


WRITE PROTECT ON 

This message is generated when the controller has been requested to write 
a data block while the write protect switch is depressed. Typically, this is 
caused by using a diskette with a write protect tab over the notch. 


WRITE ERROR (long data block) 

The controller attempts to detect the synch mark of the next header after 
writing a data block. If the synch mark does not appear within a pre- 
determined time, the error message is generated. The error is caused by a 
bad diskette format (the data extends into the next block), or by hardware 
failure. 


DISK ID MISMATCH 

This message is generated when the controller has been requested to 
access a diskette which has not been initialized. The message can also 
occur if a diskette has a bad header. 


Syntax errors: 38, 31, 32, 33, 34 


38: SYNTAX ERROR (general syntax) 


31: 


32: 


33: 


34: 


The DOS cannot interpret the command sent to the command channel. 
Typically, this is caused by an illegal number of file names, or patterns are 
illegally used. For example, two file names may appear on the left side of 
the COPY command. 


SYNTAX ERROR (invalid command) 
The DOS does not recognize the command. The command must start in 
the first position. 


SYNTAX ERROR (long line) 
The command sent is longer than 4@ characters. 


SYNTAX ERROR (invalid file name) 
Pattern matching is invalidly used in the OPEN or SAVE command. 


SYNTAX ERROR (no file given) 

The file name was left out of acommand or the DOS does not recognize it 
as such. Typically, a quotation mark (”) or colon (:) has been left out of the 
command. 
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File errors: 69, 61, 62, 63, 64, 65 


60: WRITE FILE OPEN 
This message is generated when a write file that has not been closed is 
being opened for reading. 


61: FILE NOT OPEN 
This message is generated when a file is being accessed that has not been 
opened in the DOS. Sometimes, in this case, a message is not generated; 
the request is simply ignored. 


62: FILE NOT FOUND 
The requested file does not exist on the indicated drive. 


63: FILE EXISTS 
The file name of the file being created already exists on the diskette. 


64: FILE TYPE MISMATCH 
The file type does not match the file type in the directory entry for the 
requested file. 


65: NO BLOCK 
This message occurs in conjunction with the B-A commana. It indicates 
that the block to be allocated has been previously allocated. The 
parameters indicate the next higher in number available track and sector. 
If the parameters are zero (@), then all blocks higher in number are in use. 


System errors: 79, 71, 72 


78: NO CHANNEL (available) 
The requested channel is not available, or all channels are in use. A 
maximum of five sequential files may be opened at one time to the DOS. 
Direct access channels may have six opened files. 


71: DIR(ectory) ERROR 
The BAM does not match the internal count. Thereis a problem inthe BAM 
allocation or the BAM has been overwritten in DOS memory. To correct 
this problem, reinitialize the diskette to restore the BAM in memory. Some 
active files may be terminated by the corrective action. 


72. DISK FULL 
Either the blocks on the diskette are used or the directory is at its limit (152 
entries). 


SIMPLIFYING THE USE OF 2040-RELATED COMMANDS 


It has been explained that all disk commands must be preceded with the BASIC PRINT# 
command and enclosed in quotation marks. This is true, but you can program your computer 
to perform these tasks for you. You also knaw how to load and run programs stored on diskette. 
These tasks can be simplified, too. 
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Loading the DOS SUPPORT Program 


The first file on the TEST/DEMO diskette that comes with your 2040 contains a program called 
DOS SUPPORT. This program, when loaded into your computer's memory, takes care of the 
tasks mentioned above. You can use a special LOAD command to load this program into your 
computer's memory. This command is: 


LOAD “#%”,8 


Give this command as your first command immediately after power up. It not only loads DOS 
SUPPORT, but it initializes Drive 6 and opens the file. This means that you must have the 
diskette containing DOS SUPPORT in Drive @. If you use this command later in the session, it 
loads the last program successfully accessed with LOAD or SAVE regardless of the diskette 
involved. 


When DOS SUPPORT is loaded into your computer's memory, you should give the RUN 
command to implement it. Unlike other programs that you call from diskette, it is automatically 
relocated into the highest available RAM memory location. In this way, it is not lost when you 
remove it from the computer's memory. 


Using the DOS SUPPORT Symbols: > and @ 


Once DOS SUPPORT is implemented you no longer have to precede disk commands with 
PRINT #lfn or enclose them in quotation marks. You need only precede the disk command with 
either the greater than symbol (>) or the at sign (@). The examples in this manual use the > 
symbol. 


Examples: 
>I0 is the same as PRINT#1,"IQ" 
>SO:FILE1 is the same as PRINT#15,“S@:FILE1" 


No OPEN statement is required before a statement. 


The greater than symbol! can also be used to load a diskette directory. Usually you load a 
directory with LOAD“$adr’,8. This command destroys any program you might havein memory. 
When you use the > symbol, the directory is printed directly to the screen, thus preserving the 
data in the computer's memory. 


Examples: 
>$0 means display the entire directory of Drive 0. 
>$1:Q4¢ means to display all the files on Drive 1 that begin with a Q. 
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NOTE: To avoid scrolling of the directory, depress the space bar to stop the 
listing. To continue the listing of the directory, press any key on the keyboard. 


To stop a directory listing and return to BASIC, press ead 
STO 





The third use of > is the request of error messages. 


Example: 
> is equivalent to: 
1@ OPEN 2,8,15 


20 INPUT#2,AS,BS,C$,DS 
30 PRINTAS,BS,CS,DS 


Loading a Program with the / 


Use the slash (/} to load a program from diskette. Both diskettes are searched if the drive 
number is not specified. 


Example: 


/ACCT loads the program ACCT into the computer’s memory. 


Loading and Running a Program with} 


The up arrow (p) loads a program from a diskette and runs it. Both diskettes are searched if 
necessary. 


Example: 


f{UDATA loads and runs the program JDATA. 


227 = 


Special DOS SUPPORT Information 
The DOS SUPPORT program has certain limitations. These are: 
1. The program must be reaccessed from the disk whenever you reset the computer. 


2. You may only give DOS SUPPORT commands when you are communicating with the 2040 
inthe direct mode. In other words, you cannot use DOS SUPPORT commands ina program. 


3. You can print the disk directory on the printer by giving these commands: 


. Opens device 4 and changes the primary output 
OPEN 4,4: CMD 4 device 16.4: 


>$@ Prints the directory. 


PRINT#4: CLOSE 4 Returns output to the screen and closes the file. 
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Section 4 


ADVANCED DISK PROGRAMMING 


This section provides the advanced user with information about DOS structure and disk utility 
commands. These utility commands provide the programmer with low level functions that may 
be used for special applications such as special disk handling routines and random access 
techniques. 


DISK OPERATING SYSTEM (DOS) 


The DOS file interface controller is responsible for managing all information between the disk 
controller and the IEEE-488 bus. Most disk I/O is performed on a pipelined basis, resultingina 
faster response to a requested operation. 


The file system is organized by channels. You open each channel through the BASIC OPEN 
statement. When you execute the OPEN statement, the DOS assigns a workspace to the 
channel and allocates either one or two Disk I/O buffer areas. If either the workspace or the 
buffer is not available, a NO CHANNEL error is generated. The DOS also uses the channel 
structure to search the directory, delete files, and copy files. 


The common memory between the disk controller and the file interface controller is used as 
the 256-byte buffer areas. Three of the sixteen buffers are used by the DOS for the Block 
Availability Maps (BAM), variable space, command channel I/O, and the disk controller’s job 
queue. 


The job queue is the vital link between the two controllers. Jobs are initiated by the file side by 
providing the disk controller with sector header and type of operation information. The disk 
controller seeks the optimum job and attempts the execution. An error condition is then 
returned in place of the job command. If the job is not successful, the file side re-enters the job 
aset number of times, depending on the operation, before generating an error message for the 
computer. 


The secondary address given in the OPEN statement is used by DOS as the channel number. 
The number you give to a channel is only a reference number that is used to access the work 
areas, and is in no way significant to the ordering of channels. The LOAD and SAVE statements 
transmit secondary addresses of 8 and 1, respectively. The DOS automatically interprets these 
secondary addresses as LOAD and SAVE functions. Unless you want these functions when 
opening files, you should avoid secondary addresses of @ and 1. The remaining numbers, 2 
through 14, can be used as secondary addresses to open up to five channels for data. 
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Special OPEN and CLOSE Statements for Direct Access 
The BASIC statement: 

OPEN 2.8,4,"#" 

or 

OPEN 2,8,4,"#12" 
opens a channel to one buffer, to be used with the block commands. The first available buffer is 
allocated to channel 4 in the first example. The second example is an attempt to allocate buffer 
12 to the channel. If the buffers are not available, a NO CHANNELS error condition is 
generated. The explicit buffer allocation can be used to reserve a buffer for position dependent 
code as in the case of an execute command. 
You can find the number of the allocated buffer by executing a GET# statement. The byte 
transmitted is the buffer number. The only time you can get a buffer number is before any write 
or read operation to that buffer. 
The CLOSE statement clears the opened channel and writes the BAM to the diskette that was 


last used by that channel. It is recommended that to avoid confusion, you limit yourself to 
accessing one drive with any direct access channel. 


DISK UTILITY COMMAND SET 


The 2040 diskette utility command set consists of the following commands: 


Commands Abbreviations General Syntax 
BLOCK-READ B-R “B-R:ch,dr,t,s” 
BLOCK-WRITE B-W “B-W:ch,dr,i,s” 
BLOCK-EXECUTIVE B-E “B-E:ch,dr,t,s” 
BUFFER-POINTER B-P “B-P:ch,p” 
BLOCK-ALLOCATE B-A “B-A:dr,t,s” 
BLOCK-FREE B-F “B-F:dr,t,s” 
memory-write M-W “M-W” adl/adh/nc/data 
memory-read M-R “M-R”adi/adh 
memory-execute M-E “M-E”ad!/adh 

USER U “Uif:parms]” 
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Where: ch 


adi 


adh 


nc 


data 


parms 


*Since these values exist in the 2040 as single bytes, you must request the values with 


is the channel number in DOS: identical to the secondary 
address in the associated OPEN statement. 


is the drive number: @ or 1 
is the track number: 1 through 35 


is the sector number: @ through 20. For each track 
number, the sector range is: 


Block or 
Track number Sector Range Total 
tor A 8 to 20 21 
18 to 24 9 to 19 20 
25to 36 6 to 17 18 
31 to 35 8 to 16 17 


is the pointer position in the buffer 

is the low byte of the address * 

is the high byte of the address* 

is the number of characters: 1 through 34* 
is the number of bytes of data: 34 maximum 
is the index to the User Table 


(optional) is the parameters associated with the U 


command. 


CHR$/(n), where n is the decimal value of the byte. 


As implied in the general syntaxes shown above, these commands may be abbreviated to the 
first character of each of the key words. Abbreviations only are accepted for those commands 
shown in lower case. The parameters associated with each command are searched for starting 
at a colon (:), or in the fourth character position if a colon is not present. The example below 


shows four ways the same Block-Read command may be given. 


Examples: 


“BLOCK-READ:2,1,4,.0" 


“B-R2,1,4,0" 


"B-R"2;1:4:0 


“B-READ:"2:1:4:0 


ae 


Parameters following the key words within quotation marks may be separated by any 
combination of the following characters: 


Character Name Keyboard Representation 
Skip > 
Space Space bar 
Comma 5 


The use of these characters allows you to send both ASCII strings and integers. 
Parameters not within the confines of quotation marks should be spearated by semicolons (:). 


In the following sections, a PRINT# is assumed in all examples. 


The BLOCK-READ Command 


This diskette utility command provides you with direct access to any block on a diskette in 
either disk drive. Used with other block commands, a random access file system may be 
created through BASIC. This command finds the character pointer in the @ position of the 
block. When this character is accessed with GET# or INPUT#, and End-or-Identify (EOI) is 
sent. This terminates an INPUT# and sets the Status Word (ST) to 64 in the computer. 


Example: 


This command reads the block from Drive 1, Track 18, Sector @ into 
channel 5’s buffer area. 


“B-R".5;1,18;0 


Read about the USER commands associated with BLOCK-READ on page 44. 


The BLOCK-WRITE Command 


When this command is initiated, the current buffer pointer is used as the last character pointer 
and is placed in the @ position of the block. The block is written to diskette and the buffer 
pointer is left in position 1. 


Example: 


This command writes Channel 7's buffer to the block on Drive 8, Track 35, 
Sector 16: 


“B-W";7:0:35:12 


- 42 - 


Read about the USER commands associated with BLOCK-WRITE on page 44. 


The BLOCK-EXECUTE Command 


This command allows part of the operation system to reside on the diskette. B-E is really aB-R 
with an addition. The File Interface Controller begins execution of the contents after the block 
is read into a buffer. Execution must be terminated with a return from the subroutine (RTS) 
instruction. Futuresystem extensions may be implemented using this technique. User-created 
functions may also implement this command. 


Example: 


This command reads a block from Drive 1, Track 1, Sector 18 into Channel 6's 
buffer and executes its contents beginning at position @ in the buffer: 


"B-E":6:1;1;18 


The BUFFER-POINTER Command 


This command updates to a new value the pointer associated with the given channel. This is 
useful when accessing particular fields of a record in a block or, if the block is divided into 
records, individual records may be set for printing or receiving data. 


Example: 


The command shown here sets Channel 2's pointer to the beginning of the data 
area in the direct access buffer: 


"B-P':2:1 


The BLOCK-ALLOCATE Command 


The appropriate BAM is updated inthe DOS memory to reflect the indicated block as used. In 
future sequential operations, the system does not use the allocated block in sequential 
operations. The updated BAM is written to diskette upon the closure of a write file or the 
closure of a direct access channel. 


If the block requested has been previously allocated, the error channel indicates the next 
available block (increasing track and sector numbers) with aNO BLOCK error. If there are no 
blocks available that are greater in number than the one requested, zeroes are returned as 
track and sector parameters. 
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The MEMORY-WRITE Command 


Ail three MEMORY commands are byte oriented. They are intended for use in machine 
langauge programs in your computer. BASIC statements may be used to access information 
through the MEMORY commands by using the CHR$ function. The system accepts only M-R, 
M-W, and M-E: no verbose spelling is allowed nor is the use of the colon (:). 


The MEMORY-WRITE command provides direct access to the DOS memory. Special routines 
may be downloaded to the 2040 for execution through this command. Up to 34 bytes may be 


deposited with each use of the command. The low byte of the address must precede the high 
byte of the address. 


Example: 
This command writes four bytes to Buffer 2 ($1200 or 4608): 


“M-W"CHRS(BJICHRSU BICHRS(4ICHRS(B2AICHRE(WICHRSUM1 7ICHRS(Y6) 


The MEMORY-READ Command 


This command sets up the byte pointed to by the address in the command string. Variables 
from the DOS or the contents of the buffers may be read with this command. The command 
changes the contents of the error channel since it is used for transmitting the information to the 
computer. The next GET# from the error channel (15) transmits the byte. An INPUT# should 
not be executed after a MEMORY-READ command until aDOS command other than one of the 
MEMORY commands is executed. 


Example: 


“M-R’CHRS(U 28); CHRS(Q) 


The MEMORY-EXECUTE Command 


You can execute subroutines with this command. To return to the DOS, terminate the 
subroutine with RTS, $60. The following example shows a request for the execution of code 
located at $3189. 


Example: 


“M-E".CHRSU 28);CHRS(49) 


The USER Command 


The USER command provides a link to any machine code according to ajump table pointed at 
by the special user pointer. The second character in the command is used as an index to the 
table. The ASCII character 6 through 9 or A through @ may be used. Zero sets the user pointer to 
a standard jump table that contains links to special routines. 


The special USER commands U1 (or UA) and U2 (or UB) can be used to replace the BLOCK- 
READ and the BLOCK-WRITE commands. 
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The syntax of U1 is: 
U1:ch,dr,t,s 


U1 reads a block into a buffer and sets the character count to 255. This allows complete access 
to all bytes in positions 1 through 255. 


The syntax of U2 is: 


U2:ch,dr,t,s 
U2 writes a buffer to a block on the disk without changing the contents of Position 8 as B-W 
does. This is useful when a block is to be read in (with B-R) and updated (B-P to the field and 
PRINT#), then written back to diskette with U2. 


Table 3 shows the standard jump table in ROM at the time of power-up. 


TABLE 3 
Standard Jump Table 


Alternate 
User User 
Designation Designation Function 

U1 UA BLOCK-READ replacement 
U2 UB BLOCK-WRITE replacement 
U3 UC jump to $1300 

U4 UD jump to $1303 

U5 UE jump to $1306 

U6 UF jump to $D008 

U7 UG jump to $D00B 

U8 UH jump to $DO0E 

U9 UI jump to $D0D5 

U: UJ power up $E18E 


RANDOM ACCESS EXAMPLE 


Since the BLOCK-ALLOCATE command returns the next available diskette block through the 
error channel, it can be used in the allocation of records. This feature allows you to create a 
random file without being concerned with the actual physical structure of the diskette. The 
allocated blocks must be recorded for reference in the BASIC program, however. 
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The following random file example demonstrates the block access commands. Notice that the 
U1 and U2 commands are used. These commands are used since more than one record is 
stored in a block and it is necessary to manage end-of-record pointers in BASIC. A smaller 
application might take advantage of the B-R and B-W commands. 


This example is built upon a relative record scheme and provides single record access through 
BASIC programming. Most of the programming below line 2600 is relative record access. The 
field accessing routines left-justify binary and alpha fields, and right-justify numeric fields. 


In a real situation, the program should generate error messages to the operator, or 
automatically take corrective action such as rounding numbers to fit a field. It would also be 
possible to add data sorts and searches as well as key fields to the program. Record size, 
including field markers, must be less than 254 characters. Field size is restricted to 80 
characters because of the restrictions of the BASIC INPUT# statement. 


Two sequential files are used to support the random access file in this example. Each file bears 
the name of the file name given in the CREATE file code (1108 to 1188) plus a six-character 
extension. Since primary file names are ten or less characters, the file names are padded with 
spaces. The two files are named FILENAME .DESCR and FILENAME .KEY@1. 

The descriptor ( .DESC) contains information on record structure and location. The primary 
key file (_ .KEY@1) contains the first field of each record and the relative record number. The 
example allows the random records to reside on a separate diskette from the sequential 


support files. This provides added room for random data. The OPEN code (1200 to 1275) 
requires the disk ID of the random file disk for comparison. 


EXAMPLE 


TO CREATE A FILE: 
1. Load and run RAND 1.8 
e Insert a disk in Drive 8. 


e Open the command channel and initialize the diskette by typing: 


OPEN 15,8,15,"10" 


Load RAND 1.9 by typing: 
LOAD“@:RAND 1.8”,8 [RETURN] 
e Insert a blank diskette into Drive 1, and type: 
PRINT#15,"N1: MAILING LIST 
Type: RUN 
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2. The computer asks: “DO YOU WISH TO CREATE A FILE"? 
Type: Y 

3. The computer displays: "RANDOM FILE NAME”? 
Enter the file name, i.e: PHONE LIST [RETURN] 

4. The computer displays: "KEY FILE ORIVE NUMBER"? 
Enter: 1 | RETURN] 

5. The computer displays: "RANDOM FILE NUMBER"? 
Enter: 1 [RETURN| 

6. The computer asks: “ENTER ID OF RANDOM DISK”? 
Type: CS 

7. The computer displays: "NUMBER OF RECORDS"? 


This is the MAXIMUM number of records the file can contain. For this example, 


enter: 10 
8. The computer asks: "NUMBER OF FIELDS PER RECORD’? 


This is the number of ‘items’ each field contains. For this example, 


enter: 4 
9. The computer displays: “INPUT FIELD NAME, FIELD SIZE, FIELD TYPE” 
TYPES: @=BINARY, 1=NUMERIC, 2=ALPHA 
FIELD 1?" enter: NAME,26,2 
FIELD 2?” enter: PHONE, 15,2 
FIELD 32" enter: ADDRESS, 40,2 


FIELD 4?" enter: COMMENTS, 48,2 


TO ADD A RECORD: 


10. The computer displays: "WHOSE RECORD DO YOU WISH TO SEE"? 
Press 


11. The computer displays: “#+7+4¢7¢ ADD RECORD++3+3¢3¢" 


NAME”? enter the desired name, for example: COMMODORE 


Sh Pi 


PHONE"? enter the phone number: 408-727-1130 [RETURN] 


ADDRESS”? enter the address: 3330 SCOTT BLVD SANTA CLARA 
CA. 95056 


COMMENTS"? enter a comment, for example: MANUFACTURES 
MICROCOMPUTERS 


12. The computer displays: “WHOSE RECORD DO YOU WISH TO SEE"? 
Press 

13. The computer displays: “753677 ADD RECORD+7¢4¢4¢" 
NAME"? enter the desired name, for example: SMITH [RETURN | 
PHONE"? enter the phone number: 999-356-1912 [RETURN] 


ADDRESS"? enter the address: 247 MASSOL DR LOS GATOS 
CA. 95030 [RETURN] 


COMMENTS"? enter a comment, for example: MANUFACTURES 
PERIPHERALS [RETURN] 


14. The computer displays: “WHOSE RECORD DO YOU WISH TO SEE”? 
Press [RETURN] 
15. The computer displays: *3¢2¢t¢25 ADD RECORD462¢4¢3¢" 
NAME"? enter the desired name, for example: JONES [RETURN| 
PHONE”? enter the phone number: 999-268-1795 [RETURN | 
ADDRESS"? enter the address: 4086 AMBER WAY SAN JOSE CA. 95028 
COMMENTS"? enter a comment, for example: MANUFACTURES 
COMPUTERS 
TO SEE A RECORD: 
16. The computer displays: “WWHOSE RECORD DO YOU WISH TO SEE”? 


Enter: COMMODORE 


TO CHANGE A RECORD: 
17. After the computer has displayed the record, it asks: "ANY MODS"? 


Enter: YES 
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18. The computer asks: "WHICH FIELD’? 
Enter the number of the field you wish to change, for example: 4 [RETURN 
19. The computer displays that field, for example: “MANUFACTURES MICROCOMPUTERS" 


? Enter the correct contents of the field, for example: US 
HEADQUARTERS 'RETURN 


20. The computer again asks if there are: “ANY MODS”. 


If the record is correct, type: NO 


GETTING THE DIRECTORY OF LISTINGS: 


21. The computer displays: “WHOSE RECORD DO YOU WISH TO SEE"? 
Type: /DIR 


The computer displays the directory. 


ENDING THE PROGRAM: 
22. The computer displays: “WHOSE RECORD DO YOU WISH TO SEE"? 


Type: / / [RETURN] and the program ends 


FANDOr 1. a6 


1 REM RANDOM 1.6 

Z REM SUBROUTINES TO MANAGE RANDOM ACCESS FILES 

3 REM VARIABLES ARE SET FROM DATA CF DESCRIPTOR FILE & KEY LIST FILES... 
4 REM ...DEFINED BY USER PROGRAM 

S REM VARIABLES SHOULT) REFLECT DESIRED FILE STRUCTURE 

6 REM ALL FUNCTIONS AGT UPON THE VARIABLES DEFINED BELOW 
16 REM 

1.1 REM 4:tokiiok aOR i sO deta tole adie 

12 REM 

15 M$=CHR#0135>-REM FIELD MARKER 

16 5P$=" "4" REM SPACE FOR PADDING 
28 0@=2: REM DIRECT CHANNEL 

21 C1=3 REN SEGQIIENTIAL CHANNEL 

#5 0C=15: REM COMMAND CHAMNEL 

30 D=e- REM CURRENT DRIVE # 

31 T=e: REM CURRENT TRACK # 

32 S=8: REM CURRENT SECTOR # 

35 DD=6. REM DESCRIFTOR DRIVE # 

36 RD=O. FEM RANDOM DRIVE # 

49 1D¢="" REM RANDOM DISK ID 

45 NRE. FEM # RECORDS IM R-FILE 

46 CR=G REM CURRENT REGURD # 

47 FRO REM 157 FREE RECORD UNUSED 

SQ NF=0: FEM # FIELDS IN RECORD! 

Si cF=a REM CURRENT FIELI # 

SS RE=3 REM # RECORDS FER BLOCK 
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R=: REM RECORD SIZE IN BYTES 

NE=«- REM # BLOCKS IN F-FILE 
E=0: REM ERROR FLAG, OK =a 

REM ENS. EMN$,ET$.E3%,ET, ES ERROR CHANHEL VARIABLES 
EF=.5'256: REM INTEGER CORRECTION 

ASS: REM INDEX ARRAY ADDRESSING STRATEGY 
REM AS=@. USE ARRAY INDEX, AS=1:° Tes ARE SET. CR= RECORD OFFSET IN BLOCK 
REM "A" VARIABLES ARE TEMPORARY 
DN=2OPREMCC, DH.cC. REM IN= DEVICE NUMBER 
GoTozGaa: REM START OF USER PROGRAM 

REM 

REM sa tapio ei ici i a iain aR vai a a ak 


S16] 
1 REM RAHDOM FILE DIMNENSIOW ROUTINE 
x 


4 


VS Vimo Oo M OW Sy, OW en 


REM 157T SET NE. WF & NB 

REM" 

GOSUELEG 

11a IFFP=-1THENRETURN 

111 FRR=-1 

115 DIM FSH<NFD -REM FIELD SIZE 

126 DIM FRRCNF> >REM FIELD FOosSITION 

125 REM FPa2c1T>= SUM CFSAacI-1>) 

136 DIM FT&cNF>D > REM FIELD TYPE: @: BINARY. 1:°NUMERIC. 2: ALPHA 
135 DIM FH#¢NF> > REM FIELD HEADING 

146 DIM FScCNF> -REM FIELD ARGS-ALPHA. KFINARY 

145 DIM FCHF> >REM FIELD ARGS-NUMERIC 

146 RETURN 

15@ IFIT#=-1 THENRETURN 

151 ITx=-1 

155 DIM ITKCNB>D © REM TRACK INDEX ARRAY 

166 DIM ISK<NB>D > REM SECTOR INDEX ARRAY 

165 DIM KiS¢NR> © REM FRIMARY KEY YALLUE 

1°6 DIM RReRCNRD - REM RELATIVE RECORD LIST FER KEY 

175 RETURN 

ZEB REM sia OR RR RE ea eR ai RR Re Mee aie age 

2@1 REM UPDATE RECORD. CR 

262 REM 

ZH5 GOSUBSIGG 

210 PRINT#CC,. "UL: "CasTsT55 

215 PRINT#COC."B-F:> "Ce.:RkP 
@ FORCF=1 TONF 

5 GosuBSeaa 
7] 
5 


Ss 


mee ee om 


Tet 
ui 


NESTCF 

2 PRINT#OC, "U2: "CesT Ts 
240 GOSUB1600: IFETHENI 900 
245 RETURN 

366 REM Jalaialulokdabalokok deioiiobk aabatok kak 

341 FEM READ RECORD, CR 

382 REM 

365 GOSURSaG 

318 PRINT#CO. "Ui: "C@s0.7T.s 

315 PRINT#Oc. "B-F: "Ca. RP 

3S2@ GOSUB1G66: IFETHEM1 su0 

325 FUORCF=1 TONF 

330 GOSUBGGG 

335 NESTCF 

346 RETURN 

4060 REM dokatk delotoboboalesob deb baka ab dob ib 

461 REM WPDATE FIELDCCr> OF RECORD Ce. SINGLE FIELD UFDATE 
402 REM 

4805 GOSUBIEG 

410 PRINT#OC, "Ui: "Ce:D.T.5 

415 GOSUB1@@Q8: IFETHEH1 366 

420 PRINT#OC. "B-F "COs FRACIFO+RF 

$25 GOSUBSGH : FEM UPDATE FIELD 


Ss 
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PRIHT#H#OR. "US: "Ca.0s Tis 
GOSUB1 Eo. [FETHEM1 Sea 


3 RE TILIRN 


REM 23630 dq 90OR Sp NORGE ROR Nee toe 
FEM REAL FIELDCCR> OF RECORD CR. SINGLE FIELD READ 


2 REM 


KBOSUER see 

FRINT#OCC. “Wd “Ce. t. Ts 
GUSUBRi gee. TFETHEN 1 3a 
PRIHT#Oc. "R-F “Ca. FRACCFO+RE 
BUSUBEAG - REM READ FIELD 


g RETURN 


RET aekababokak taba ak abn ab Ob ok 
REM LIFDATE FIELDS Cro. E-F IS SET 


We REM 


Aon on 
aw 
A Ke) 


PAU YN ANNA ANN HHH HTH Hom AH oe 


j NAObunns ana wee aaGoauA LY Whee Oa G oi os ps 
Ve Aon nDWanaQAnouwneQAnauenanenenae Gaqaau 


SABA AMK OHO Sw wo oO - ; 
GQauoegqarvaneAaanae 


Tyas CMCC MES COE CR COMES OSE ONE 0 cy tay Mi 


IFFTRCCF oc3 1 THENS 26 

AS=RIGHT SE SPS+S TREC CCR oo. FSR CK o> GoOTOSSe 

AS=LEF TSC FScCPR o4+5FS.F S00 00F > 

PRINT#CS. At: MF, 

RETURH 

ISOM LE DLL LD OSES EEL Ct eet eee SF 

FEM READ FIELDCCF>. B-F IS SET 

REM 

IF FTRCCR) THEHESS 

Al¢=" u 

FOR IJ=1TOFSHCCF > 

GET#CA, AF: IFAF=" " THENAS=CHRS COD 

A1#=A14+AS 

NEXT F#¢cCRo=A1¢s 

GET#C6G. AS -RETURN 

INFUT#CE. FS¢CF> 

IFFT#¢CFO<Si THEN RETURH 

FOlPo=“VAL CP S¢ CR >> . RETURN 

SMM LL ELE LE Se Et te as tee se SS FG 

REM ALLOCATE ONE BLOCK. T & S =REQGSUESTED TRACK & SECTOR 
REM RETURNED T & S ARE ALLOCATED VALUES ¢T=1e IS SKIPPED 
REM 

GUSURKSG0: IFETHENI 2a: REM CHECK T & 
PRINT#OC®. "BAS "D755 
INFUT#O:. EH. EMS. ET.ES 
IFEH=6THEHFRETURM 
IFEN<>657THEH! 3260 
IFET=127THENT=15: 5=8.60TO7 15 
T=ET S=ES 

BoTarAS 

SUM SELLE LLEL LE Le ttt tbs 2S ES oS 
REM FREE ONE Block, T & S = TRACK & SE 
REM 

GOSUBSaa@: IFETHENIS@00: REM CHECK T & 
PRINT#OC, "R-F:"DST>S 
INFUT#cr:. EN. EMS, ET. ES 
IFEN=6THENFRE TURN 

GUTOL S68 

REM ook abi rR ak alee ae de ake ae ate ak ate abe Ne ak abe ab ae ae 
REM CHECK MAX SECTOR 

REM 

IF T>3S5THEN1 3ae 

E=6: IFT=6THEN=46 : GOTU1 27060 
A3=16: IF TSSa THEN 3a 
AS=17:> IF T>24 THENHS 36 
AS=19-IF TSA? THENS 34 

A3=26 

IFSDASTHENI 208 
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oO 


=51< 


S90 RETURN 

EG REI este eae fete He aie tee CE Me ee a i ae 
901 REM SET RECORD’S TRACK. SECTOR & RECORD POINTER FROM IHDEX ARRAYS 
962 REN 

963 D=RD 

916 E=a 

915 IFAS=—-1 THENRP=CR¥RS4+1  GOUTOSS6 

3260 RP=INTCCCR-19-“RE+EP> IFRPOHB OR RPC@THENEM=41 'GoTo19e6 
938 T=ITACRED -S=ISn RP > 

346 RP=INTCOCCR<-1).°RE-RF+EP oO #R 58RD +1 


IFRPS254THEN EH=41 GoTOLSeu 


366 RETURN 


1908S 
1818 
1815 
117 
1@20 
1338 
1435 
1346 
1656 
1660 
1676 
1080 
1685 
16398 
11098 
1181 
1162 
1103 
1104 
1165 
1166 
1103 
1118 
1115 
1116 
11208 
1121 
1122 
1123 
1124 
1126 
1138 
1135 
1148 
1145 
1158 
1152 
1155 
1160 
1165 
1166 
1167 
1168 
1170 
1175 
{130 
1200 
1261 
1262 


FRED eR RR a gE ORE OR 

REM IHFUT fede ERROR STATUS 

REM 

IHFUT#2C. EN#.EN#.ET.ES 

EN=AL (ENS) >: E=u 

IF EN#="68" THEN RETURN 
ETS=STRSCET > -ES#=STRECESD 
IFENS<CORIGHTS#S (6 "G" +N IDE CSTR CEND» 29,29 THENLO’O 
IF EN=1 THEN EM#= ET$+" "“+EN$: RETURN 

E=E+1 

EMS="AQ"+ENS +" “+EMS 

IF EN<36 OR EN=65 THEN EMS=EMS+" ON "+ET$+", "+ES$¢ 
RETURN 

EM$S="S3YSTEM NOT RESPONDING PROPERLY" 
EMS=EMN$+EH¥ tEM$ +E TS+E Ss 

E=E+1 

RETURN 

REM eekuioeuioiuie laa toi ial loti a aati 

REM CREATE DESCRIPTOR FILE 

REN INPUT: F#= FILENAME 


REM ID$.NR,NFLFS209.F TAC. FHS6 > 

REM DI= DESCRIPTOR FILE DRIVE # 

REM RD= RANDOM DISK DRIVE # 

REM DRIVES MUST BE INITIALIZED 

REM 

RKS=1: D=RD 

FORAG=1 TONF / FPR CAO SRS RS=FSACAGO+RS+1 NEXT: RS=RS-1 


RB=INT¢C254/R35+EP > 

OPENCG. DN. Co, "#" > GOSUB1IGGO : IFETHEN1 306 
GOSUB1286 

PRINT#CC. "B-F: "Ce. t 

FORAG=1 TORB : FORA1L=1 TONF 
FRINT#H#CG,.LEFTS#(SF$.FSA0A1 2 35 ME: 

NEXTAL- AG 

HB INT CONR/RBt+EP > > IF CNRCRB-NB)®RB>= 1 THENHB=NE+1 
T=1:S=@:GOSUB15u 

FORAG=@TONB-1 :GUSUBC1a: IFETHENL 206 
ITACAQOR=T: ISK AGD=S : GOSUBS 36 > NEXT 

GOSUB7 18 

PRINT#CC,. "B-F: "C6: 1 

PRINT#CO- NR: MN$5 15> NS¢NBI MSZ FS.N#.RBLMS. NF OMS; 
PRINT#CO. "BW: "Ce. DsT:5 

AS=STRSCDDI +": "*LEPTSCPS+eSF S$, 105+"  DESCR. WM” 
OPENCi.5IN.C1.A$ 

GOSUB1 660: IFETHEN1 280 
PRINT#C1. IDSs M$: Ts MSI 5. ME; 


FORAG=1 TONF : PRIHMT#O1. CHRE CP S20AG > CHES CPT 20 AD OS FHS R@> oo 


FORAG=GQTONB-1: PRIHT#HC1. CHRECI TAC AG) oS CHREC TSK CAB oo NEXT 
CLOSEC1 -CLOSECG. RETURN 

RET 2a IGIORI IIR OR RIOR: Softee oboe 

REM OPEN RELATIVE FILE 

REM INPUT: F#= FILENAME 
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+ NEXT 


REM T= DESCRIFTOR FILE DRIVE # 

REM FD= RAMDOM DISk DRIVE # 

REM DRIVES miulaT BE JHITIALIZED 

FEM 

AFSSTRSC OD +" "+LEPT# OF S+5P$. 169+". DESCR UR" 
OPEHMC. TH. 01 AS. GOSURL@aa: IFETHEN1 3am 
IHNFUT#O1. IDF. TOS 

CPENMCe,. DH. Ce. "#8" GUSUER1a8o TFETHENL 346 

GOSUBL 236 

FRIWT#HOD. "BHR ".Ce.RD. TT. 5 GOsuURLa@GG@: TFETHENL 366 
THFUT#G. NR. FPROWBO RS. RBs NF 
GOSUBIGG FTN Cao =HT-FSk cab =s 

FORAS=1TONF  GOSUBI2Z93 > FS CAG =ASC CAS> 
IHFUT#o1 FHS <he> HEXT 
FORAG=STOHB-1 - GOSUBL293: ITXC A@=ASC CAS 
GOSUBLS9&  IS%0Ae2=ASC CAS) - HEXT 

GOSUBiM@e: IFETHENI 300 

CLOSEC1 

RETURN 


1 
1 
1 


= 
=“ 
= 
= 
7 
= 
= 

e 
= 

= 


tof ee re ee Ge 
SNS Op ee 


a 









Os OR CN CMM CAC ON CON OO ON OO 
ANNA HDMWAMN ED ww fo 
SADA Dnone AG iH 


| cel cael eae cel col el ee ool 


230 FRINT#CO. "U1: "i CRIRD: "213.6" GOSUIBIGGG IFETHEN1 900 
a5 PRIHT#CC. "B-P "200.162 

236 GET#CG. AS. ALS AS=4S+A1# IF IDS<2ASTHENEN=43 ENS="NRONG RAND DISK" :GOTO1900 
296 RETURN 

298 GDET#O1. AS: [FAS="" THENAS=CHRE > 

299 RETURH 

406 REM etedee EOS EO SIO 

401 REM CLOSE RELATIVE FILE 


1462 REM INFUT. VARIABLES FROM OPEN SHOULD BE VALID 

1409 FEr 

(1419 PRINT#CO, "B-F- "Cel 

1426 FPRIHT#C0. HRMS. FR. MSs NB.NS. RSS MES RB. MNS: NFS PS: 

1436 FRINT#CC. "B-W- "CGO. DFTA ao SP Sh ee 

1446 CLOSE 

1430 RETLIRN 

1380 E=E+1°RETURH 

eo@ea INPUT" T@ao You WISH TO CREATE A FILE NOMME. AS: IFLEFTS$¢AS, 15<>"¥"THEN2Z100 
2061 INPUT" SRANDOMN FILE NAME" FS . 


Ssee@2 INPUT"KEY FILE DRIVE NUMBER". DI 

2663 INMFUT"RANDOM FILE DRIVE NUNEER". RD 

2065 INFUT"ENTER ID OF RANDOM DISk AMOR | 1D#. LDS=LEFTS CIs, 2) 
2086 IHFUT"HUMBER OF FECORIS". MP: 

eee? IHPUT HUMBER OF FIELDS FER RECOURIN". HF 

£610 GOSUBLIS 

2615 PRIHT"@) INFUT FIELD NAME.FIELD SIZE.FIELD TYPE” 

2616 PRINT" TYPES: G=BIHARY. 1=HUMERIC. 2=ALPHAR" 

2619 F5=8 

e620 FORIS1TOHWF FRIHT"FIELD". 1. INPUTFHS¢ 1d. FSe C12. PTRC1 oO RS=FSZ201 3 +RS+1 NEXT 
O25 A="I" IFDD=RUTHENAS="1"+5 TREC DD 

S838 FRIHTHCO.AS 

£649 905081100: IFETHEMS 300 

S656 OPEH4.5.4.57TRECIDS+" “+lLEP TS Fs t+Fs. 154+". KEYG. UW" 

2855 FRINT#4.8.MN#s CLOSES 

ease@ GoTOclzse 

2106 REM OFEH RAHDOM FILE FoR ACCESS 

2183 INFUT' @RAHDON FILE MANE". Fs 


2145 THFUT'KEY FILE DRINE HUMBER”. Dit 

2116 ITHEUT" RANDOM FICE DRIVE NUMBER" RD 

2126 GOSUBL ooo. IFETHENS3ae 

2146 OFEMWS.8.4.57R#¢0Ds+" "+lLEPT# FP $+5F#. 169+". KEV 1 ul" 
2142 IHPUT#4. RR ITFRR=aTHENS1Id¢ 

£1495 FORI=1TORF IHFUT#4.K18.¢15. BRAT WERT 

fide CLOSES 
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£156 FRIHNT' Telep PROB RBRBARRBBBRISAUFLE RAD ACCESS a" 
2155 FRIHT’ TYRE ee To GuIT a 

£156 FRINT" CHIT RETURN To ADD RECORD?" 
£160 PRIHT' aaWHOSE RECORD Dro ou" 

2161 IMFUT'WISH To SEE Gl RSF 

2165 IFRE$=" "“THENS314 

ela? TFRR#="-." THENSS 36 
2163 IFRE#="-DIR" THENHGOSUBR4S 850: GOTOU2Z164 
2176 FORIT=1TORRK IFRKL#< Tl os > RR THENNEST . GOTOZ S68 
CRERRACTIo bo SUR 368 

FORT=170ONF FRIHTI."O"FH& CTO" ".F&8 elo NEXT OPRINT 
FRF=u 

INFUT AMY Mores eM’. At: TFLEFT#: As. 1oce' "THEN 228 
IHFUT "WHICH FIELD".#A 

PRIWT" “Fon FRIANT'. THPUTFS OAs FOR SVAL CFE CAD > 
FF=1 -GouTOf1 36 

IFFF=8THENe 16a 

ITFR=1 THENE IS 0 TT =F SiR) 

GOSURSHE 

B0T0s166 

FRIWT" @RECORI NUT PRESENT" 

INFUT"DO YOU WISH TO ADD". AS. IFLEF TEAS. 1965" THENZ166 
FRIHT" ekeeek AUD RECORD x43 2TQ" 

IFFR2NRTHENZ oS Get 

CR=FR:>FR=FR+1  RE=RR+1 

FORI=1TOHF PRINTFHS* I>. INPUTFSc 12 Fe lo=VALCF $2199: NEXT 
GOSUBSHG 

Kit¢RRO=FSet1> REAORRO=CR 
Se ooTdzies 
24086 REM CLOSE RAND FILE 

24605 bOSUBI Sag 

£416 GFENS,S. 4. "8° +STRS ODDS +" > "*+LEPTS CF S+sr$, 160+". KEVYaL. UW" 
2426 GOSUBIGM@e: IFETHENS360 

2436 FRINT#4.RRIMS. 

2446 FORI=1 TORE FRINTHS-KISC 1 NSS RRA CIO NS; > NEXT 

2445 bOSUBiG@e : IFETHENHS3I@@ 

2456 CLOSE4 

2455 GOSUEL aba TIF ETHENS3e0 

25060 FRIHT" THE FILE I5 FULL. HO ADDITIONAL RECORDS Ay BE ADDED" 
£516 GOTHL160 

2906 PRINTE. EMS: STOP 

$900 FORDI=8TONR -PRINTKI¢< DI > > HEXT - RETURN 
READ. 
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APPENDIX A 


SUGGESTED READING 
(USA produced) 


Hands-On Basic with a Pet. H. D. Peckham. McGraw Hill, 1979 
Entering BASIC. J. Sack and J. Meadows. Science Research Associates, 1973 
BASIC: A Computer Programming Language. C. Pegels. Holden-Day, Inc.. 1973 


BASIC Programming. J. Kemeny and T. Kurtz, Peoples Computer Co., 1010 Doyle (P. O. 
Box 3100), Menlo Park, CA 94025, 1967 


BASIC FOR HOME COMPUTERS. Albrecht, Finkle and Brown. Peoples Computer Co., 
1010 Doyle (P. O. Box 3100). Menlo Park. CA 94025, 1973 


A Guided Tour of Computer Programming in BASIC. T. Dwyer. Houghton Mifflin Co., 1973 


Programming Time Shared Computer in BASIC. Eugene H. Barnett. Wiley-Interscience 
L/C 72-175789 ($12.00) 


Programming Language #2. Digital Equipment Corp., Maynard. MA 01754 


101 BASIC Computer Games. Software Distribution Center. Digital Equipment Corp., 
Maynard, MA 01754 ($7.50) 


What to Do After You Hit Return. Peoples Computer Co., 1010 Doyle (P. O. Box 310), Menlo 
Park. CA 94025 (S6.95) 


Basic BASIC. James S. Coan, Hyden Book Co., Rochelle Park, NJ 
WORKBOOKS 1-5. T. |. S., P. O. Box 921, Los Almos, NM 87544 

Programming the 6502. R. Zaks Sybex, 1978 

24 Tested, Ready-to-Run Game Programs in Basic. K. Tracton. Tab Books, 1978 
Some Basic Programs. M. Borchers and R. Poole, Osborne & Assoc. Inc., 1978 
Basic Programming for Business. |. H. Forkner. Prentice-Hall, 1977 


The Channel Data Book. B. Lewis, 5960 Mandarin Ave., Goleta, CA 93017, 1978 


APPENDIX B 


VARIABLE ABBREVIATIONS USED IN COMMAND SYNTAXES 


ABBREVIATION 
commandstring 
datastring 

ddr 

dn 

dr 

dskname 

fn 

ft 

id 

!fn 

mode 

sa 

sar 


vname 


MEANING 
Diskette handling or file handling command 
Data to be stored on diskette 
Destination drive: 6 or 1 
Device number: must be 8 for the 2040 unless hardwiring is altered 
Drive number: 6 or 1 
Disk name: up to 16 characters 
File name: up to 16 characters 
File type: SEQ, PRG, or USR only 
Disk identifier: two-characters 
Logical file number 
Transmission mode: READ or WRITE 
Secondary address. Used to transmit channel number: 1 through 15 
Source drive: 6 or 1 


variable designations — may be one, or several designations 
separated by commas or semicolons 


APPENDIX C 


EXAMPLE PROGRAM — READING & WRITING 
SEQUENTIAL FILES 


Se@uUEeniTITAL 31. ee 


FRET see 0 Rea CO CRC: OP RO ee 
REM * EXANFLE * 
REM # READ AND WRITE A * 
REM * SEQUENTIAL DATA * 
FEM # FILE USING DRIVE @ # 
FELT 63:54 39856 RE AE SE AR HE 


Seah On Gs Pde Se OD Pe 


@ PRINT'ORIMITIALIZCE DISK" 

@ DIMASC2]5> (REM SET At ARRAY 

@ DIMECSS) - REM SET E ARRAY 

6 OFENIS.S.15°REM OPEH THE COMMAHD CHANHEL 
B® PRINT#1I5. "18" REM INITIALIZE DRIWE SERC 

8 GOSUE 1808: REM READ THE ERROR ITHAHHEL 

4 CRP=OHRS 6 135° REM SET STRING CRE TO A CARRIAGE FETURN 
WM PRINT" S@NRITE TEST FILE" 

CEE ELI e304 aR EEA aE MRE BEE 

1@1 FEM * * 

ima REM * WRITE TEST FILE + 

ee REM * 






SPEER CR OE BE RD 





































=2."@o: TEST FILE .2- W"'° REM OPFEH LOGICAL FILE 2 ON DISK & Ta 
CHALLEL & REPLACE DATA FILE HAMED 
112 RE TEST FILE WITH SEQUENTIAL WRITE 
115 GOSUE 16@a°REM READ THE ERROR CHAMHEL 
126 INPUTYAE. B'S AS. EB. REM THFUT HAMNE. HUMBER INTO AS SHE 
126 TFAF="EMD"THEM 166°REN STOF THE DATF IHMFUT 
146 PRINT#?. Af". USTRECEOCRE. REM FRIHT Ta THE DIS 
145 GOSUB 18a@a:-REM FREAD THE ERROR CHANHEL 
15@ GOTO 128 
166 CLOSE 2: REM CLOSE TEST FILE 
SE RET OR OR OO be 
281 REM + * 
2h2 REM *& READ TEST FILE * 
263 REM + * 
SS FET] tee abet ae eo a Eb OE: 
She PRIHT' SREAD TEST FILE" 
218 OFPEHS.8.2."a TEST FILE .3.R": REM OPEN LOGICAL FILE 2 OW DISk & Ta 
211 REM CHANNEL = NAMED TEST FILE WITH 
fla FEM SEQUEHTIAL FERD 
215 GOSUR 1886: REM READ THE ERROR CHAMNHEL 
oO IMPLT#S. Ado 1d. BOT. REM READ STRING INTO STRING ARPA At 
1 REM AND HUMBER IHTG ARRAS E 
4° FS=2T: REM STORE THE DISk STATUS 
5 60 sh rhe REM FEAIt THE ER HARE 
368 “To. Belo REM FRINT WHAT WAS READ 
248 CHECK FOF EMD OF FILE STATUS 
a CHECK FOR ERROR IM FILE STATUS 
2 ADT 1 TO ARRAY POINTER 
saa ¥ CLOSE TEST FILE 
10 END FEM EHD THE FROGRAM EXECUT Lot 
$60 PRIKT' SERLROTSERESTATLIOY Sen" Fs. 
4109 CLOSE & REM CLOSE TEST FILE 
g26 EMD: REM EHD THE PROGRAM EXECUITICH 
LE REM AEE E RAR REE ER EE OD OH 
1661 FEM * FREAD THE ERROR * 
1682 FEM + CHAHHEL * 
1005 FEM POP EFREEREE EE ERED HO OH 
141@ INFUT#15.EMt.€MF. ETS. E24 FEM FEAT ERROR: 
1@11 Fen EN [2 THE ERS F: HLMBEF 
1812 Fen Ens I2 THE EF 
1612 REM ES# [= THE EOE 5 H 
1 4 IF EN#S"@0" THEN RETURN: REM RETURM TO MATH LGgIc Ir Ho ERRORS 
1O36 FRIMT’ SERRE OM DISK": RED FRIHT THE ERROR 
lad FPRINTENS. EH ET#ESS REN FRIHT THE ERROR 
16958 CLOSE =: REM CLOSE TEST FILE 
1666 END: Fer END THE PROGRAM EXECUTION 
FEAL". 
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